home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / card_23032.txt < prev    next >
Text File  |  1989-08-22  |  10KB  |  549 lines
  1. -- card: 23032 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 23174
  5. -- name: Map
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   global clickTime
  9.   if the ticks - clickTime < 50 then exit mouseUp
  10.  
  11.   answer "Click one of the sections on the Stack Map." with "Help" or "OK"
  12.   if it is "Help" then
  13.     push card
  14.     visual dissolve
  15.     go card "howtoUse"
  16.   else exit mouseUp
  17. end mouseUp
  18.  
  19.  
  20.  
  21. -- part 14 (button)
  22. -- low flags: 00
  23. -- high flags: 0000
  24. -- rect: left=286 top=150 right=187 bottom=328
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: 
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   push card
  36.  
  37.   repeat 2
  38.     set hilite of bkgnd button 6 to true
  39.     wait 4
  40.     set hilite of bkgnd button 6 to false
  41.     wait 4
  42.   end repeat
  43.  
  44.   visual dissolve
  45.   go card "feature0"
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 15 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=126 top=94 right=131 bottom=166
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   push card
  65.  
  66.   repeat 2
  67.     set hilite of bkgnd button 1 to true
  68.     wait 4
  69.     set hilite of bkgnd button 1 to false
  70.     wait 4
  71.   end repeat
  72.  
  73.   visual dissolve
  74.   go card "open1"
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 16 (button)
  80. -- low flags: 00
  81. -- high flags: 0000
  82. -- rect: left=286 top=262 right=309 bottom=328
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: 
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   push card
  94.  
  95.   repeat 2
  96.     set hilite of bkgnd button 12 to true
  97.     wait 4
  98.     set hilite of bkgnd button 12 to false
  99.     wait 4
  100.   end repeat
  101.  
  102.   visual dissolve
  103.   go card "content0"
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 18 (button)
  109. -- low flags: 00
  110. -- high flags: 0000
  111. -- rect: left=126 top=154 right=197 bottom=179
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: 
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   push card
  123.  
  124.   repeat 2
  125.     set hilite of bkgnd button 2 to true
  126.     wait 4
  127.     set hilite of bkgnd button 2 to false
  128.     wait 4
  129.   end repeat
  130.  
  131.   visual dissolve
  132.   go card "howtoUse"
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 19 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=430 top=150 right=187 bottom=471
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: 
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   push card
  152.  
  153.   repeat 2
  154.     set hilite of bkgnd button 8 to true
  155.     wait 4
  156.     set hilite of bkgnd button 8 to false
  157.     wait 4
  158.   end repeat
  159.  
  160.   visual dissolve
  161.   go card "support0"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 20 (button)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=286 top=206 right=253 bottom=333
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: 
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   push card
  181.  
  182.   repeat 2
  183.     set hilite of bkgnd button 9 to true
  184.     wait 4
  185.     set hilite of bkgnd button 9 to false
  186.     wait 4
  187.   end repeat
  188.  
  189.   visual dissolve
  190.   go card "question0"
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 21 (button)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=358 top=206 right=253 bottom=402
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: 
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   push card
  210.  
  211.   repeat 2
  212.     set hilite of bkgnd button 10 to true
  213.     wait 4
  214.     set hilite of bkgnd button 10 to false
  215.     wait 4
  216.   end repeat
  217.  
  218.   visual dissolve
  219.   go card "definition0"
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 24 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=358 top=150 right=187 bottom=410
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: 
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   push card
  239.  
  240.   repeat 2
  241.     set hilite of bkgnd button 7 to true
  242.     wait 4
  243.     set hilite of bkgnd button 7 to false
  244.     wait 4
  245.   end repeat
  246.  
  247.   visual dissolve
  248.   go card "technology0"
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 25 (button)
  254. -- low flags: 00
  255. -- high flags: 0000
  256. -- rect: left=206 top=98 right=131 bottom=255
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: 
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   answer "You are already here. Try another section." with "Help" or "OK"
  268.   if it is "Help" then
  269.     push card
  270.     visual dissolve
  271.     go card "howtoUse"
  272.   else exit mouseUp
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 35 (button)
  278. -- low flags: 00
  279. -- high flags: 0000
  280. -- rect: left=286 top=94 right=141 bottom=340
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: 
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   push card
  292.  
  293.   repeat 2
  294.     set hilite of bkgnd button 3 to true
  295.     wait 4
  296.     set hilite of bkgnd button 3 to false
  297.     wait 4
  298.   end repeat
  299.  
  300.   visual dissolve
  301.   go card "desc0"
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 37 (button)
  307. -- low flags: 00
  308. -- high flags: 2000
  309. -- rect: left=401 top=317 right=342 bottom=429
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 18614 / 18614
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: home
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   doMenu "Home"
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 40 (button)
  326. -- low flags: 00
  327. -- high flags: 0000
  328. -- rect: left=358 top=94 right=141 bottom=400
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: 
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   push card
  340.  
  341.   repeat 2
  342.     set hilite of bkgnd button 4 to true
  343.     wait 4
  344.     set hilite of bkgnd button 4 to false
  345.     wait 4
  346.   end repeat
  347.  
  348.   visual dissolve
  349.   go card "target0"
  350. end mouseUp
  351.  
  352.  
  353.  
  354. -- part 41 (button)
  355. -- low flags: 00
  356. -- high flags: 0000
  357. -- rect: left=358 top=262 right=299 bottom=398
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 1
  361. -- font id: 0
  362. -- text size: 12
  363. -- style flags: 0
  364. -- line height: 16
  365. -- part name: 
  366. ----- HyperTalk script -----
  367. on mouseUp
  368.   push card
  369.  
  370.   repeat 2
  371.     set hilite of bkgnd button 11 to true
  372.     wait 4
  373.     set hilite of bkgnd button 11 to false
  374.     wait 4
  375.   end repeat
  376.  
  377.   visual dissolve
  378.   go card "index1"
  379. end mouseUp
  380.  
  381.  
  382.  
  383. -- part 44 (button)
  384. -- low flags: 00
  385. -- high flags: 0000
  386. -- rect: left=430 top=94 right=131 bottom=471
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 1
  390. -- font id: 0
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: 
  395. ----- HyperTalk script -----
  396. on mouseUp
  397.   push card
  398.  
  399.   repeat 2
  400.     set hilite of bkgnd button 5 to true
  401.     wait 4
  402.     set hilite of bkgnd button 5 to false
  403.     wait 4
  404.   end repeat
  405.  
  406.   visual dissolve
  407.   go card "benefit0"
  408. end mouseUp
  409.  
  410.  
  411.  
  412. -- part 48 (button)
  413. -- low flags: 00
  414. -- high flags: 0000
  415. -- rect: left=455 top=317 right=342 bottom=483
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 18622 / 18622
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: next
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   answer "Click one of the sections." with "Help" or "OK"
  427.   if it is "Help" then
  428.     push card
  429.     visual dissolve
  430.     go card "howtoUse"
  431.   else exit mouseUp
  432. end mouseUp
  433.  
  434.  
  435.  
  436. -- part 49 (button)
  437. -- low flags: 00
  438. -- high flags: 0000
  439. -- rect: left=428 top=317 right=342 bottom=456
  440. -- title width / last selected line: 0
  441. -- icon id / first selected line: 18621 / 18621
  442. -- text alignment: 1
  443. -- font id: 0
  444. -- text size: 12
  445. -- style flags: 0
  446. -- line height: 16
  447. -- part name: prev
  448. ----- HyperTalk script -----
  449. on mouseUp
  450.   answer "Click one of the sections." with "Help" or "OK"
  451.   if it is "Help" then
  452.     push card
  453.     visual dissolve
  454.     go card "howtoUse"
  455.   else exit mouseUp
  456. end mouseUp
  457.  
  458.  
  459.  
  460. -- part 60 (button)
  461. -- low flags: 00
  462. -- high flags: 2000
  463. -- rect: left=482 top=317 right=342 bottom=510
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 18613 / 18613
  466. -- text alignment: 1
  467. -- font id: 0
  468. -- text size: 12
  469. -- style flags: 0
  470. -- line height: 16
  471. -- part name: returnFromMap
  472. ----- HyperTalk script -----
  473. on mouseUp
  474.   pop card into lastPush
  475.   if the short name of this stack is not in lastPush then
  476.     visual dissolve
  477.     go card "Map"
  478.   else
  479.     visual dissolve
  480.     go lastPush
  481.   end if
  482. end mouseUp
  483.  
  484.  
  485.  
  486. -- part 63 (button)
  487. -- low flags: 00
  488. -- high flags: A002
  489. -- rect: left=1 top=1 right=16 bottom=40
  490. -- title width / last selected line: 0
  491. -- icon id / first selected line: 0 / 0
  492. -- text alignment: 0
  493. -- font id: 3
  494. -- text size: 9
  495. -- style flags: 0
  496. -- line height: 12
  497. -- part name: Menu
  498. ----- HyperTalk script -----
  499. on mouseDown
  500.   global checkedItem, clickTime
  501.   put 1 into checkedItem
  502.   mainMenu
  503.   put the ticks into clickTime
  504. end mouseDown
  505.  
  506.  
  507.  
  508. -- part contents for background part 3
  509. ----- text -----
  510. Stack Map
  511.  
  512. -- part contents for background part 7
  513. ----- text -----
  514. Click on any location in the map to go there.
  515.  
  516.  
  517.  
  518.  
  519.  
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526.  
  527. -- part contents for background part 47
  528. ----- text -----
  529. Apple Macintosh SE/30
  530.  
  531.  
  532. -- part contents for background part 73
  533. ----- text -----
  534. Stack Map
  535. Help
  536. (-
  537. Description
  538. Target Markets
  539. Benefits
  540. Features
  541. Technology
  542. Support
  543. Buyer Questions
  544. Terms
  545. (-
  546. Contents
  547. Index
  548. (-
  549. Print Card/P